home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 88
/
64er_Magazin_Sonderheft_88_19xx_Markt__Technik_de_Side_B.d64
/
sdz nlq
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
521b
|
16 lines
10 open1,4
20 print#1,chr$(27);chr$(120);"1";:rem nlq ein
30 print#1,chr$(27);":";chr$(0);chr$(0);chr$(0);:rem rom-zeichensatz ins ram
40 print#1,chr$(27);"&";chr$(0);"!!";:rem neue zeichen von a bis a
50 for i =1 to 47
60 : read x
70 : print#1,chr$(x);
80 next i
90 print#1,chr$(27);"%1";:rem ram-zeichensatz einschalten
100 print#1,"statt eines ausrufe-zeichens"
110 print#1,"erhaelt man 1/2 : !!! !!!"
120 close1
200 data 128:rem attribut: keine unterlaenge
210 data 17,64,18,224,20,0,24,0,16,9,32,1,66,1,132,9,0,0,0,0,0,0,0:rem 1.
220 data 0,2,128,100,0,8,0,16,0,32,16,66,16,132,16,8,0,0,0,0,0,0,0:rem 2.